import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO

main = do
    xmonad $ defaultConfig
	{ manageHook = manageDocks <+> manageHook defaultConfig
        , layoutHook = avoidStruts  $  layoutHook defaultConfig
	}`additionalKeys`
	[ ((mod1Mask .|. shiftMask, xK_c), spawn "google-chrome")
	,((0, xK_F2), spawn "google-chrome http://www.cisco.com/web/learning/netacad/index.html")
	,((0, xK_F3), spawn "google-chrome  https://studentportal.napier.ac.uk/ICSLogin/?\\\"https://studentportal.napier.ac.uk/\\\"")
	,((0, xK_F12), spawn "google-chrome --app=http://gmail.com")
	,((mod1Mask .|. shiftMask, xK_m), spawn "emesene")
	,((mod1Mask .|. shiftMask, xK_i), spawn "xchat")
	,((mod1Mask .|. shiftMask, xK_o), spawn "wine /mnt/CLUE/CLUE/CLUE.exe")
	,((mod1Mask .|. shiftMask, xK_Return), spawn "uxterm")
	,((mod1Mask .|. shiftMask, xK_x), kill)
	]
--        [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock")
--        , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
--        , ((0, xK_Print), spawn "scrot")
--        ]
